home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 19
/
CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso
/
CUCD
/
Readers
/
Gui4Cli
/
Docs
/
Tutorials
/
OnKey.gc
< prev
next >
Wrap
Text File
|
1997-12-02
|
2KB
|
84 lines
G4C
; xOnkey, for extra info on (nearly) every keypress
WINBIG 117 51 460 140 "OnKey.gc"
WinType 11110001
usetopaz
; ---- Decorations
CTEXT 357 3 ' OnKey ' topaz.font 11 3 2 000
BOX 0 0 460 140 OUT RIDGE
BOX 60 78 118 52 OUT RIDGE
BOX 200 78 118 52 OUT RIDGE
xonLoad
GuiOpen OnKey.gc
xonClose
GuiQuit Onkey.gc
; ---- Explanations
TEXT 20 10 100 10 'Press any key' 18 NOBOX
TEXT 20 23 100 10 'The boxes will (nearly always) tell you :' 42 NOBOX
TEXT 30 35 100 10 'If it was a RAW or a VANILLA key' 32 NOBOX
TEXT 30 44 100 10 'The letter, if it was a VANILLA key' 35 NOBOX
TEXT 30 53 100 10 'Its code number' 16 NOBOX
TEXT 30 62 100 10 'The qualifier code - of interest only to addicts.' 50 NOBOX
; The qualifier codes distinguish between Shifted/unshifted,
; Left/Right Alt, Plain/Numeric key pad, and so on.
; No response here from Tab key or Backspace key.
; Try setting debug on for extra insight into the mysteries.
; ---- Boxes to display results
TEXT 80 80 80 10 '' 10 NOBOX
gadid 1
TEXT 80 92 80 10 '' 10 BOX
gadid 2
TEXT 80 104 80 10 '' 10 BOX
gadid 3
TEXT 80 116 80 10 '' 10 BOX
gadid 4
TEXT 220 80 80 10 '' 10 NOBOX
gadid 5
TEXT 220 104 80 10 '' 10 BOX
gadid 6
TEXT 220 116 80 10 '' 10 BOX
gadid 7
; ---- If a VANILLA key is pressed
xonKey #V
update OnKey.gc 1 "VANILLA"
update OnKey.gc 2 $$VANKEY.LETTER
update OnKey.gc 3 $$VANKEY.CODE
update OnKey.gc 4 $$VANKEY.QUAL
; Clear the RAW boxes
update OnKey.gc 5 ''
update OnKey.gc 6 ''
update OnKey.gc 7 ''
; ---- If a RAW key is pressed
xonKey #R
update OnKey.gc 5 "RAW"
update OnKey.gc 6 $$RAWKEY.CODE
update OnKey.gc 7 $$RAWKEY.QUAL
; Clear the VANILLA boxes
update OnKey.gc 1 ''
update OnKey.gc 2 ''
update OnKey.gc 3 ''
update OnKey.gc 4 ''